Sub prueba_LOF()
    Dim fichero As String
    fichero = "C:\Temp\NotasLineInput.txt"
    Open fichero For Input As #1
    Debug.Print "Tamao (" & LOF(1) & ")"
    Close #1
End Sub
